1 # 




FIG. 1 



S Project - Forml (Code) 




(General) 






ChangeFont 



200 



Private Sub ChangeFont ( ) 
Dim my text As TextBox 

211 ~~) /- 202 
my text | 

210 



^201 



FIG. 2 



<5D Project - Forml (Code) 



(General) 



ChangeFont 



Private Sub ChangeFont: ( ) 
Dim my text As TextBox 

21 1 

> £ . i-^202 ^223 
my text J_^212 ^~ 2,31 



^201 



22i^SlAMgnmer 

222-^^ Appearance 
223 HO BackColor 
224-^ HH BorderStyle 

Container 
226-^" ^ DataChanged 
Datafield 



227- 



240 



242 

-220 



241 



FIG. 3 



Q Project - Forml (Code) 




(General) 


V 




ChangeFont 



Private Sub ChangeFont ( ) 
Dim my text As TextBox 

\ 2A2~^ r — 420 
X y te xt(r r |^-202 ^ 43 ° 





Font 



FontBold 
Fontl Italic 
FontName 
414 -/"full FontSize 

FontStrikethru 
FontUnderline 



□ 



220 



FIG. 4 



<£] Project - Forml (Code) 



(General) 



ChangeFont 



Private Sub ChangeFont ( ) 
Dim my text As TextBox 

\ 510-^ ,-511 

my text . f ont\K^~202 

531 



532 




:Bold 
Charset 
533 -^m Italic 
534 -^pH Name 
Size 

Strikethrough 
y^W\ Underline 



535 
536 
537 




530 



F/G. 5 



210 





£] Project - Forml (Code) 


(General) v 


ChangeFont 




Private Sub ChangeFont ( ) 
Dim my text As TextBox 

^ 511—. ,-610 '611 

mytext . font I Underline— 






641— - 

642- ^ 


HUiFalse : — 
HH True 





F/G. 6 



FIG. 10 



( START -1003 




FROM 
FIG. 10 
.STEP 1023> 



1108 



FIG. 11 



BEGIN C 
ENG 


-OMPILE 
ilNE 




■+ 

r 


READ NEXT 
CHAR/COMMAND 



1110 



1118 



EXECUTE 
COMMAND 




1132 



1149 

S 



UPDATE ASSIST 
WINDOW 



ADD CHARACTER 
TO PROGRAM 
STATEMENT 



•1172 



1175 



UPDATE\GENERATE 
ASSIST WINDOW 



1188- 



CONTINUE 

? 

NO 



1185 



YES 



RETURN 1 
TO FIG. 10 



1190 



# 




1205 



REPLACE WORD IN 
PROGRAM STATEMENT 
WITH SELECTED 
MENU ITEM 



FIG. 12 



1200 

> 



1208 



1210 



Si 




THROW AWAY 
COMMIT KEY 
CHARACTER 



1220 



ADD COMMIT 
CHARACTER TO 
PROGRAM STATEMENT 



1250 



1240 



ANY NEW 
INFORMATION 
TO DISPLAY IN 
AN ASSIST 
.WINDOW. 

'YES 



NO 



REMOVE ANY 
EXISTING WINDOW 



1254 



UPDATE/GENERATE 
ASSIST WINDOW 



1258 



